inherited FRM_ConsultaFornecedor: TFRM_ConsultaFornecedor
  Left = 224
  Top = 185
  Caption = 'FRM_ConsultaFornecedor'
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited AdvOfficePager: TAdvOfficePager
    NextPictureChanged = False
    PrevPictureChanged = False
    inherited AbaConsulta: TAdvOfficePage
      inherited jvMenuLateral: TJvScrollingWindow
        inherited btnExcluir: TSpeedButton
          OnClick = btnExcluirClick
        end
      end
      inherited pnlCentral: TPanel
        inherited pnlResumo: TPanel
          inherited lblTotal: TLabel
            Width = 178
            Caption = 'Total de Registros: 0 fornecedores'
          end
        end
        inherited pnlFiltro: TPanel
          inherited FR_PesquisarEmpresaFilial: TFR_EmpresaFilial
            Visible = False
          end
          inherited pnlPesquisar: TPanel
            inherited cboFiltro: TComboBox
              DropDownCount = 13
              ItemIndex = 2
              Text = 'Nome Fantasia'
              Items.Strings = (
                'C'#243'digo'
                'Raz'#227'o Social'
                'Nome Fantasia'
                'N'#250'mero CNPJ'
                'N'#250'mero IE'
                'E-mail'
                'Tel. Comercial'
                'Tel.Celular'
                'CEP'
                'Situa'#231#227'o [ Ativo ]'
                'Situa'#231#227'o [ Inativo ]'
                'Tipo Pessoa [ Fisico ]'
                'Tipo Pessoa [ Juridico ]')
            end
            inherited btnPesquisar: TAdvGlowButton
              OnClick = btnPesquisarClick
            end
          end
        end
        inherited GridConsulta: TJvDBGrid
          OnDrawColumnCell = GridConsultaDrawColumnCell
          TitleRowHeight = 19
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'COD_FORNECEDOR'
              Title.Alignment = taCenter
              Title.Caption = 'C'#243'digo'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TIPO_PESSOA'
              Title.Alignment = taCenter
              Title.Caption = 'Tipo Pessoa'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RAZAO_SOCIAL'
              Title.Alignment = taCenter
              Title.Caption = 'Raz'#227'o Social'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 300
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOME_FANTASIA'
              Title.Alignment = taCenter
              Title.Caption = 'Nome Fantasia'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SITUACAO'
              Title.Alignment = taCenter
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Visible = False
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'SITUACAO_DESC'
              Title.Alignment = taCenter
              Title.Caption = 'Situa'#231#227'o'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 70
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'CNPJ'
              Title.Alignment = taCenter
              Title.Caption = 'N'#186' CNPJ'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 100
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'IE'
              Title.Alignment = taCenter
              Title.Caption = 'N'#186' IE'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TIPO_EMPRESA'
              Title.Alignment = taCenter
              Title.Caption = 'Tipo Empresa'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'EMAIL'
              Title.Alignment = taCenter
              Title.Caption = 'E-mail'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 300
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'TEL_COMERCIAL'
              Title.Alignment = taCenter
              Title.Caption = 'Tel. Comercial'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 100
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'TEL_CELULAR'
              Title.Alignment = taCenter
              Title.Caption = 'Tel. Celular'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PRAZO_COMPRA'
              Title.Alignment = taCenter
              Title.Caption = 'Prazo Compra'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CEP'
              Title.Alignment = taCenter
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENDERECO'
              Title.Alignment = taCenter
              Title.Caption = 'Endere'#231'o'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 300
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'NUMERO'
              Title.Alignment = taCenter
              Title.Caption = 'N'#250'mero'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COMPLEMENTO'
              Title.Alignment = taCenter
              Title.Caption = 'Complemento'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'LOCALIDADE'
              Title.Alignment = taCenter
              Title.Caption = 'Localidade'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'BAIRRO'
              Title.Alignment = taCenter
              Title.Caption = 'Bairro'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UF'
              Title.Alignment = taCenter
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 40
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'WEBSITE'
              Title.Alignment = taCenter
              Title.Caption = 'WebSite'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 700
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'OBS'
              Title.Alignment = taCenter
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Visible = False
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'DATA_CAD'
              Title.Alignment = taCenter
              Title.Caption = 'Registro'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Width = 75
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'DATA_ALTERACAO'
              Title.Alignment = taCenter
              Title.Caption = 'Ult. Altera'#231#227'o'
              Title.Font.Charset = DEFAULT_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -12
              Title.Font.Name = 'Segoe UI'
              Title.Font.Style = []
              Visible = True
            end>
        end
      end
    end
    inherited AbaRegistro: TAdvOfficePage
      inherited pnlFormulario: TPanel
        Left = 106
        Top = 85
        Width = 638
        Height = 391
        inherited pnlTitulo: TPanel
          Width = 634
          Caption = 'Registro de Fornecedores'
          TabOrder = 1
          inherited Image2: TImage
            Width = 29
            Picture.Data = {
              07544269746D6170B60E0000424DB60E00000000000036000000280000001D00
              0000200000000100200000000000800E0000C30E0000C30E0000000000000000
              0000EDEDED00EAEAEA00EAEAEA00E8E8E800EBEBEB00E8E8E800E3E3E300E2E2
              E200E0E0E000DEDEDE00DBDBDB00D8D8D800D3D3D300D1D1D100A4A4A4008181
              8100A3A3A300B9B9B900B0B0B000B1B1B100B5B5B500B0B0B000BEBEBE00BCBC
              BC00C1C1C100C9C9C900D1D1D100DFDFDF00F4F4F400DFDFDF00D9D9D900D5D5
              D500CECECE00ACACAC00A2A2A200B5B5B500BBBBBB00BDBDBD00C2C2C200C6C6
              C600C9C9C900D4D4D400A5A5A500343434001515150021202000B4B4B400D0D0
              D000BFBFBF00434343001E1E1E0083838300ECECEC00ECECEC00EFEFEF00F1F1
              F100F3F3F300F9F9F900F6F6F600ECECEC00E5E5E500E0E0E000939393007070
              7000818181009A9A9A00DEDEDE00E4E4E400E8E8E800EDEDED00F6F6F6008E8F
              8F00686D7000505152000C0C0C0096969600F7F8F800818282001C2022000B0D
              0D000D0D0D00F0F0F000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00D2D2D2009D9D9D007070700074747400EDED
              ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF006F707000676C6F005B5E5F001615
              15005F5F5E009394940065656600777A7B00555657002E2D2D0078787900E4E4
              E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFCFC00CECE
              CE00BABABA00C7C7C700AFAFAF008F8F8F0096969600F4F4F400FFFFFF00FFFF
              FF00FFFFFF00A8A8A8002F3132003233330027252400767F8700394F6200676D
              720092909000B0AFAF00B7B7B700A7A7A7008C8C8D00D5D5D600FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00F8F8F800C1C1C100B4B4B400B4B4B400C9C9
              C900CACACA00C8C8C800FAFAFA00FFFFFF00FFFFFF00FFFFFF00F7F7F7007F7F
              7F0050504E007C7B7C00607B92003D617C003C576B00687076008A8A8900ACAB
              AB00B7B6B600B4B3B3008B8C8B00C7C8C800FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00F2F2F200BABABA00B3B3B300A8A8A8009B9B9B00D9D9D900FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FBFBFB00F8F8F800B4BEC5004165
              80004A6C84004D6D87003F5D7100616D75008B8D8E00959696009A9B9B009E9E
              9E0085858400D8D8D800FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700BDBD
              BD00B0B0B000A6A6A6008C8C8C00BBBBBB00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00F9FBFC006D8A9F00446782004E6E860050708A003B55
              670032495A003A4C5B0035434C003C4751004857620054636D004F5D6900B4BA
              C100FFFFFF00FFFFFF00FFFFFF00F1F1F100C0C0C000BABABA00ADADAD008F8F
              8F00AFAFAF00FEFEFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CFD9
              E100406684004C70880050728A004E6C84003D5568003A51620040617900527F
              A0005782A1005E8AA9004E728C003B5A710087A0B300FFFFFF00FFFFFF00FFFF
              FF00D9D9D900C3C3C300C4C4C400B0B0B00089898900A9A9A900FBFBFB00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FDFEFE00879CAB00426786004C728C004F73
              8A0051748C004D6E86003E5A6D00547E9D00608FB2006895B6006995B4005175
              8C00476A8400C2D3DE00FFFFFF00FFFFFF00F6F6F600C3C3C300C6C6C600C3C3
              C3009F9F9F0084848400A3A3A300F6F6F600FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00C0CAD30038566E00436277004B6F8B004E75900050748C004E7188004E74
              8F005988AD006290B1006793B4006893B300628EAD00628DAB00E7EEF300FFFF
              FF00FFFFFF00E2E2E200C1C1C100C5C5C500BEBEBE008A8A8A00828282009D9D
              9D00F0F0F000FFFFFF00FFFFFF00FFFFFF00F2F5F7005371880042617A004765
              79003C5567003F5F77004A6F8A004C718A00527D9C005E8EB3006592B3006895
              B6006996B7006191B4009CBBD000FCFDFE00FFFFFF00FEFEFE00CBCBCB00C3C3
              C300C3C3C300B6B6B600818181007E7E7E0091919100ECECEC00FFFFFF00FFFF
              FF00FFFFFF00C1CDD6003E607A004A69810045637800354B5A002F4250003A58
              6E004C7391005C8BB0006292B5006594B7006494B6005C89AA00628CAD00E7F0
              F600FFFFFF00FFFFFF00F5F5F500C4C4C400C3C3C300BDBDBD00A6A6A6008A8A
              8A00878787008C8C8C00E6E6E600FFFFFF00FFFFFF00FFFFFF0096AABA004065
              7F004D6C850049667D00344B5B003E596F005580A0005A87A7006290B2006593
              B3005984A0004A6D86003D5D7500B1C1CC00FFFFFF00FFFFFF00FFFFFF00F5F5
              F500C8C8C800C3C3C300B5B5B500A5A5A500999999009393930094949400DCDC
              DC00FFFFFF00FFFFFF00FBFBFC00C4CCD200567892004C6E86004F6F8600425E
              74004C7390005F8FB2006391B1006792B2006A96B6004D6D84004B6A8000496B
              8400D2DFE800FFFFFF00FFFFFF00FFFFFF00FDFDFD00D1D1D100C1C1C100B4B4
              B400AAAAAA00A1A1A1009D9D9D009D9D9D00DCDCDB00FFFFFF00FFFFFF00ECEC
              ED00DBDFE2005C7C9500486E89004D6F86004B6D87005886AA005F90B3006593
              B4006995B6006995B60059819D00567D9A005D85A200EBF1F500FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00E2E2E200B9B9B900AFAFAF00A7A7A700A1A1A1009F9F
              9F009D9D9D00E7E7E700FFFFFF00FCFDFD00E2E3E400A0AFBB00456983004B6F
              8A004A6E8800517B9A005F8FB5006392B5006897B8006C99B9006B98B8006C9A
              BC006494B6009CBAD100FCFDFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAEA
              EA00ADADAD00A3A3A3009F9F9F009F9F9F009191910082828200CCCCCC00FFFF
              FF00F1F1F100E9EDF00061839D004E738B0049687D0042647C005A8BB1006294
              BA006395BA006899BD006A9BBE006797BA006495B8006091B500DDE8F100FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C7C7C7008A8A8A00878787008F8F
              8F00ACACAC00A9A9A9009595950091919100B7B6B600BCBCBD00B1B9C1004670
              9000537892004A6B7F003C5669005681A3006494B8006999BC005D87A700547E
              9E0086AAC500AFCADE00BED4E500FDFEFE00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00EDEDED009E9E9E00A5A5A5009B9B9B008F8F8F00BCBCBC00D7D6D600D1D1
              D100ABACAD009EA1A20099999B00868786006D879B004A749100547991004E72
              8C005D8DB1006A99BA006F9EBE005C829C0053799500D9E4EC00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E4E4E400D6D6D600F1F1
              F100ECECEC00DDDDDD00E3E3E300EFEFEF00E6E7E700B2B4B400C5C5C500D0D0
              D000CCCBCB00B8B8B80091A6B7004A728F005481A3006295BB006A9BBB006F9E
              BE006999BC0097B9D200FCFDFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00F5F5F500F4F4F400F9F9F900E9E9E900EAEAEA00ECEC
              EC00F2F2F200FBFBFB00FAFAFA00FDFDFD00FFFFFF00FDFDFD00F8F7F700F9FA
              FB00ABBFCF00729DBD0081ABCB0083ACCB0078A6C4007EAAC900E6EFF600FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FEFEFE00CCCCCC00ADADAD00B3B3B300BABABA00EAEAEA00FCFCFC00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFEFE00F1F6F900F7FA
              FC00F8FBFC00F4F8FA00F8FBFC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DEDEDE00929292008383
              8300878787008E8E8E00E2E2E200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00E1E1E1008F8F8F009191910091919100909090008F8F8F009191
              9100E6E6E600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F700ACACAC00A0A0
              A000A2A2A200A3A3A300A4A4A400A3A3A300A2A2A200B4B4B400FBFBFB00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00E6E6E600B0B0B000B1B1B100B1B1B100B1B1B100B1B1
              B100B2B2B200B2B2B200B5B5B500EFEFEF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E3E3
              E300C0C0C000BFBFBF00BEBEBE00BEBEBE00BEBEBE00BFBFBF00BFBFBF00C1C1
              C100EDEDED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDEDED00CFCFCF00CECECE00CCCC
              CC00CDCDCD00CCCCCC00CCCCCC00CCCCCC00CFCFCF00F5F5F500FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FCFCFC00F4F4F400F0F0F000E9E9E900E7E7E700E7E7E700E2E2
              E200E5E5E500F1F1F100FEFEFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00}
          end
        end
        inherited pnlOperacao: TPanel
          Top = 365
          Width = 634
          TabOrder = 0
          inherited btnGravar: TAdvGlowButton
            Left = 500
            OnClick = btnGravarClick
          end
          inherited btnFechar: TAdvGlowButton
            Left = 568
          end
        end
        object PageFornec: TPageControl
          Left = 2
          Top = 47
          Width = 634
          Height = 318
          ActivePage = TabFornecedor
          Align = alClient
          Style = tsFlatButtons
          TabOrder = 2
          object TabFornecedor: TTabSheet
            Caption = 'Informa'#231#245'es Gerais'
            object cboTipoPessoa: TAdvDBComboBox
              Left = 2
              Top = 16
              Width = 90
              Height = 21
              Color = clWindow
              Version = '1.0.1.1'
              Visible = True
              Style = csDropDownList
              AutoFocus = True
              DataField = 'TIPO_PESSOA'
              DataSource = dsRegistro
              DropWidth = 0
              Enabled = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ItemIndex = 1
              ItemHeight = 13
              Items.Strings = (
                'FISICO'
                'JURIDICO')
              Items.StoredStrings = (
                'FISICO'
                'JURIDICO')
              LabelCaption = 'Tipo de Pessoa:'
              LabelPosition = lpTopLeft
              LabelAlwaysEnabled = True
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              ParentFont = False
              TabOrder = 0
              BevelKind = bkFlat
            end
            object edtDescricao: TDBAdvEdit
              Left = 98
              Top = 16
              Width = 284
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'Informe a raz'#227'o social:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clBlack
              LabelFont.Height = -12
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecUpperCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              Visible = True
              OnKeyDown = edtDescricaoKeyDown
              Version = '2.9.4.1'
              DataField = 'RAZAO_SOCIAL'
              DataSource = dsRegistro
            end
            object cboSituacao: TAdvDBComboBox
              Left = 2
              Top = 58
              Width = 90
              Height = 21
              Color = clWindow
              Version = '1.0.1.1'
              Visible = True
              Style = csDropDownList
              AutoFocus = True
              DataField = 'SITUACAO'
              DataSource = dsRegistro
              DropWidth = 0
              Enabled = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ItemIndex = 0
              ItemHeight = 13
              Items.Strings = (
                'ATIVO'
                'INATIVO')
              Items.StoredStrings = (
                'True'
                'False')
              LabelCaption = 'Situa'#231#227'o:'
              LabelPosition = lpTopLeft
              LabelAlwaysEnabled = True
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              ParentFont = False
              TabOrder = 3
              BevelKind = bkFlat
            end
            object edtCNPJ: TDBAdvEdit
              Left = 98
              Top = 57
              Width = 139
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'N'#250'mero CNPJ:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clBlack
              LabelFont.Height = -12
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecUpperCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 4
              Visible = True
              OnExit = edtCNPJExit
              OnKeyDown = edtCNPJKeyDown
              OnKeyPress = edtCNPJKeyPress
              Version = '2.9.4.1'
              DataField = 'CNPJ'
              DataSource = dsRegistro
            end
            object edtIE: TDBAdvEdit
              Left = 242
              Top = 57
              Width = 140
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'N'#186' Insc. Est.:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clBlack
              LabelFont.Height = -12
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecUpperCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 5
              Visible = True
              OnExit = edtIEExit
              OnKeyPress = edtIEKeyPress
              Version = '2.9.4.1'
              DataField = 'IE'
              DataSource = dsRegistro
            end
            object cboTipoEmpresa: TAdvDBComboBox
              Left = 387
              Top = 57
              Width = 235
              Height = 21
              Color = clWindow
              Version = '1.0.1.1'
              Visible = True
              Style = csDropDownList
              AutoFocus = True
              DataField = 'TIPO_EMPRESA'
              DataSource = dsRegistro
              DropDownCount = 10
              DropWidth = 0
              Enabled = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ItemIndex = -1
              ItemHeight = 13
              Items.Strings = (
                'DISTRIBUIDORA'
                'IND'#218'STRIA'
                'ONG'
                'ORGAO PUBLICO MUNICIPAL'
                'ORGAO PUBLICO ESTADUAL'
                'ORGAO PUBLICO FEDERAL'
                'REVENDEDORA'
                'PRESTADOR DE SERVI'#199'OS'
                'OUTROS')
              Items.StoredStrings = (
                'DISTRIBUIDORA'
                'IND'#218'STRIA'
                'ONG'
                'ORGAO PUBLICO MUNICIPAL'
                'ORGAO PUBLICO ESTADUAL'
                'ORGAO PUBLICO FEDERAL'
                'REVENDEDORA'
                'PRESTADOR DE SERVI'#199'OS'
                'OUTROS')
              LabelCaption = 'Tipo de Empresa/Atua'#231#227'o:'
              LabelPosition = lpTopLeft
              LabelAlwaysEnabled = True
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              ParentFont = False
              TabOrder = 6
              BevelKind = bkFlat
            end
            object edtFantasia: TDBAdvEdit
              Left = 387
              Top = 16
              Width = 235
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'Nome fantasia:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clBlack
              LabelFont.Height = -12
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecUpperCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 2
              Visible = True
              OnKeyDown = edtFantasiaKeyDown
              Version = '2.9.4.1'
              DataField = 'NOME_FANTASIA'
              DataSource = dsRegistro
            end
            object edtPrazo: TDBAdvEdit
              Left = 469
              Top = 100
              Width = 153
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'Prazo de compra:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecUpperCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 10
              Visible = True
              Version = '2.9.4.1'
              DataField = 'PRAZO_COMPRA'
              DataSource = dsRegistro
            end
            object edtTelCelular: TDBAdvEdit
              Left = 362
              Top = 100
              Width = 103
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'N'#186' Tel. celular:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecUpperCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 9
              Visible = True
              OnExit = edtTelCelularExit
              OnKeyPress = edtTelComercialKeyPress
              Version = '2.9.4.1'
              DataField = 'TEL_CELULAR'
              DataSource = dsRegistro
            end
            object edtTelComercial: TDBAdvEdit
              Left = 253
              Top = 100
              Width = 105
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'N'#186' Tel. comercial:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecUpperCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 8
              Visible = True
              OnExit = edtTelComercialExit
              OnKeyPress = edtTelComercialKeyPress
              Version = '2.9.4.1'
              DataField = 'TEL_COMERCIAL'
              DataSource = dsRegistro
            end
            object edtEmail: TDBAdvEdit
              Left = 2
              Top = 100
              Width = 247
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'Endere'#231'o de e-mail comercial:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecLowerCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 7
              Visible = True
              Version = '2.9.4.1'
              DataField = 'EMAIL'
              DataSource = dsRegistro
            end
            object gbEndereco: TAdvGroupBox
              Left = 0
              Top = 183
              Width = 626
              Height = 104
              RoundEdges = True
              Align = alBottom
              Caption = ' Informa'#231#245'es sobre o endere'#231'o '
              Ctl3D = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 12
              TabStop = True
              object edtNumero: TDBAdvEdit
                Left = 559
                Top = 37
                Width = 60
                Height = 21
                AutoFocus = True
                EditAlign = eaRight
                EmptyTextStyle = []
                LabelCaption = 'N'#250'mero:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 3
                Visible = True
                Version = '2.9.4.1'
                DataField = 'NUMERO'
                DataSource = dsRegistro
              end
              object cboUF: TAdvDBComboBox
                Left = 559
                Top = 77
                Width = 60
                Height = 21
                Color = clWindow
                Version = '1.0.1.1'
                Visible = True
                Style = csDropDownList
                AutoFocus = True
                DataField = 'UF'
                DataSource = dsRegistro
                DropWidth = 0
                Enabled = True
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ItemIndex = -1
                ItemHeight = 13
                Items.Strings = (
                  'AC'
                  'AL'
                  'AM'
                  'AP'
                  'BA'
                  'CE'
                  'DF'
                  'ES'
                  'GO'
                  'MA'
                  'MG'
                  'MS'
                  'MT'
                  'PA'
                  'PB'
                  'PE'
                  'PI'
                  'PR'
                  'RJ'
                  'RN'
                  'RO'
                  'RR'
                  'RS'
                  'SC'
                  'SE'
                  'SP'
                  'TO')
                Items.StoredStrings = (
                  'AC'
                  'AL'
                  'AM'
                  'AP'
                  'BA'
                  'CE'
                  'DF'
                  'ES'
                  'GO'
                  'MA'
                  'MG'
                  'MS'
                  'MT'
                  'PA'
                  'PB'
                  'PE'
                  'PI'
                  'PR'
                  'RJ'
                  'RN'
                  'RO'
                  'RR'
                  'RS'
                  'SC'
                  'SE'
                  'SP'
                  'TO')
                LabelCaption = 'UF:'
                LabelPosition = lpTopLeft
                LabelAlwaysEnabled = True
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                ParentFont = False
                TabOrder = 7
                BevelKind = bkFlat
              end
              object edtLocalidade: TDBAdvEdit
                Left = 369
                Top = 77
                Width = 185
                Height = 21
                AutoFocus = True
                EmptyTextStyle = []
                LabelCaption = 'Localidade:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 6
                Visible = True
                Version = '2.9.4.1'
                DataField = 'LOCALIDADE'
                DataSource = dsRegistro
              end
              object edtEndereco: TDBAdvEdit
                Left = 131
                Top = 37
                Width = 423
                Height = 21
                AutoFocus = True
                EmptyTextStyle = []
                LabelCaption = 'Informe o endere'#231'o:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 2
                Visible = True
                Version = '2.9.4.1'
                DataField = 'ENDERECO'
                DataSource = dsRegistro
              end
              object edtBairro: TDBAdvEdit
                Left = 152
                Top = 77
                Width = 212
                Height = 21
                AutoFocus = True
                EmptyTextStyle = []
                LabelCaption = 'Bairro:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 5
                Visible = True
                Version = '2.9.4.1'
                DataField = 'BAIRRO'
                DataSource = dsRegistro
              end
              object edtComplemento: TDBAdvEdit
                Left = 8
                Top = 77
                Width = 139
                Height = 21
                AutoFocus = True
                EmptyTextStyle = []
                LabelCaption = 'Complemento:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 4
                Visible = True
                Version = '2.9.4.1'
                DataField = 'COMPLEMENTO'
                DataSource = dsRegistro
              end
              object edtCEP: TDBAdvEdit
                Left = 8
                Top = 37
                Width = 90
                Height = 21
                AutoFocus = True
                EmptyTextStyle = []
                LabelCaption = 'Informe o CEP:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 0
                Visible = True
                OnExit = edtCEPExit
                OnKeyPress = edtCEPKeyPress
                Version = '2.9.4.1'
                DataField = 'CEP'
                DataSource = dsRegistro
              end
              object btnPesqCEP: TAdvGlowButton
                Left = 100
                Top = 36
                Width = 28
                Height = 24
                Cursor = crHandPoint
                AutoSize = True
                FocusType = ftHot
                NotesFont.Charset = DEFAULT_CHARSET
                NotesFont.Color = clWindowText
                NotesFont.Height = -11
                NotesFont.Name = 'Tahoma'
                NotesFont.Style = []
                Picture.Data = {
                  89504E470D0A1A0A0000000D494844520000001200000012080600000056CE8E
                  57000000097048597300000B1300000B1301009A9C180000000467414D410000
                  B18E7CFB5193000000206348524D00007A25000080830000F9FF000080E90000
                  75300000EA6000003A980000176F925FC546000004284944415478DA624C9E7D
                  9EE1DF7F060686FFFF4158838395C99D9783C994998151E0FBCFDFD7DF7DFC76
                  ECFB8F9FBB5918FE7DF9FBFB37441D160010402C20E2DFFFFF8CCC8CFF539445
                  B96B79D99964BFFEF80D54FF9F41848BC35B4E9083E1C1CB8F1B5FBEFB5C0614
                  BBC5C8801D0004100BC8359CACCC698AC2ECD3D898197FF172B1CD365216BEC1
                  C2CCCCF8F4CD67CE9B8FDF7BCB8BF1F973B03009DD7BF22602E8A4678C8C98C6
                  010410B3814FBA9EA208E72C0E6626365971DE164F43A91752C25CD6423C1C6A
                  72627C9FF9B939D6DE7AF296958793D5FDDBF79FFFBE7DFBB587918111161470
                  0C10402CDC6C4C5E5C2C4CD242BC1CD39DB4257E313132E67FFBF95FEEEF3F90
                  97191D94A5F9853E7D975A71F6FA53233101AEF80F1FBFCEF9FFFFEF2D741701
                  0410131F078BC5AFBF7F3F2B4BF25E636561B4FBF907620808FFF9FB8FF3FB2F
                  06675931015EA077F6B330338931333118FEFDFB87E1DFBFBF28182080585818
                  1924FFFDFBFF86958509A88F41F8EF7F8821600C8ACC7F0CBC7FFE31F0FDF9FD
                  F7C57FB037FE09FCFF0794440B2780002C8E310A00311002CD1FD2DCFF9F76D5
                  419AB4D9753D135208823AB8D7A3413DA296F397C4E915047B183C487D2A3D32
                  9591B3D28F925779F40B20A6CFDF7E9D05BA8AF7EAA377EA3FFEFCDF068CAC2B
                  40B37E035D048C50C6376CAC0C1B1E3DFFF0EAC7AF9F16BF7EFE7E0C74D44916
                  16560666262606607832707070307072B233000410D3C7AF3FD7FEF8F5E7F5FB
                  8FDF928E5C79CAFAF3CFDF265656A6192C2C4C0B81FE6EB9FBF8C3A60B371F45
                  0BF173AABD79F7F90CD090CFC222420C2C209FFDFD0534F03F030B0B0B034000
                  31EB7A24BDFAF2FDD73F313EF680771FBF5BDF79FAEED5B3D75F0E3F78F6FED2
                  D5BB2FB82EDF7E92C5C7C316242AC80BF2AE3430AAEDBFFFF875EFCFEFDF0F41
                  5E62013A99919189012000004900B6FF0330496300FAFAFCCDEEF2F6F10D0804
                  410100FF42ECF0F34DEEF1F44CFAFBFB5706050222DEE2EBC3F4F5F90520201A
                  140709091FF8F6F549F4F4F6E4FDFDFED505070600010202000288591F681050
                  F3DF9F3F7F1F7FF5EEEBEE6F3F7E7EFFF5F30F07303CBEBDFFF4E5C2C327AF9B
                  BEFEFEDF0A8C14116646268BFFACECA070E161F8F3C7FDF3E7AF9F59D8D94E33
                  3333330004100B3CFA981841D17D16186667FFFEFCCDF00F985640D1F71F48F3
                  8BF000553076DC7FF04C5C46563C8291958D4140548817E890BEB7EF3E8AFDFE
                  F7BF032080C02E022516489CFF03C6040398060A3280530A309AD83939189899
                  99BE7CFBFA7DE7E74F9F7998FEFF336706860D07170733300FDA7F7CF3FE1B40
                  0031319000989898BEFCFCF5B7F8F1A317F59F5EBFF9C1C4F89F41584C900158
                  F4F80304100B03890018047F80D1D4F4F2F5BB67FFFFFCAE65666214FEFCEDE7
                  5A800022D9203000FA9989856DCEDB2FBF4EFFFAF64D0098724F00041800ED34
                  FEEB25A2009A0000000049454E44AE426082}
                Transparent = True
                TabOrder = 1
                OnClick = btnPesqCEPClick
                Appearance.BorderColor = 13815240
                Appearance.BorderColorHot = 5819121
                Appearance.BorderColorDown = 3181250
                Appearance.BorderColorChecked = 3181250
                Appearance.ColorTo = 15590880
                Appearance.ColorChecked = 14285309
                Appearance.ColorCheckedTo = 7131391
                Appearance.ColorDisabled = 15921906
                Appearance.ColorDisabledTo = 15921906
                Appearance.ColorDown = 7131391
                Appearance.ColorDownTo = 8122111
                Appearance.ColorHot = 9102333
                Appearance.ColorHotTo = 14285309
                Appearance.ColorMirror = 15590880
                Appearance.ColorMirrorTo = 15590880
                Appearance.ColorMirrorHot = 14285309
                Appearance.ColorMirrorHotTo = 9102333
                Appearance.ColorMirrorDown = 8122111
                Appearance.ColorMirrorDownTo = 7131391
                Appearance.ColorMirrorChecked = 7131391
                Appearance.ColorMirrorCheckedTo = 7131391
                Appearance.ColorMirrorDisabled = 11974326
                Appearance.ColorMirrorDisabledTo = 15921906
                Appearance.GradientHot = ggVertical
                Appearance.GradientMirrorHot = ggVertical
                Appearance.GradientDown = ggVertical
                Appearance.GradientMirrorDown = ggVertical
                Appearance.GradientChecked = ggVertical
              end
            end
            object gbResponsavel: TAdvGroupBox
              Left = 0
              Top = 121
              Width = 626
              Height = 62
              RoundEdges = True
              Align = alBottom
              Caption = ' Informa'#231#245'es sobre o respons'#225'vel '
              Ctl3D = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 11
              TabStop = True
              object edtResponsavel: TDBAdvEdit
                Left = 8
                Top = 35
                Width = 220
                Height = 21
                AutoFocus = True
                EmptyTextStyle = []
                LabelCaption = 'Nome do respons'#225'vel:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 0
                Visible = True
                Version = '2.9.4.1'
                DataField = 'RESPONSAVEL'
                DataSource = dsRegistro
              end
              object edtRespTelefone: TDBAdvEdit
                Left = 233
                Top = 35
                Width = 90
                Height = 21
                AutoFocus = True
                EditAlign = eaCenter
                EmptyTextStyle = []
                LabelCaption = 'N'#186' Telefone:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 1
                Visible = True
                OnKeyPress = edtTelComercialKeyPress
                Version = '2.9.4.1'
                DataField = 'RESPONSAVEL_TELEFONE'
                DataSource = dsRegistro
              end
              object edtRespCelular: TDBAdvEdit
                Left = 328
                Top = 35
                Width = 90
                Height = 21
                AutoFocus = True
                EditAlign = eaCenter
                EmptyTextStyle = []
                LabelCaption = 'N'#186' Tel. celular:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 2
                Visible = True
                OnKeyPress = edtTelComercialKeyPress
                Version = '2.9.4.1'
                DataField = 'RESPONSAVEL_CELULAR'
                DataSource = dsRegistro
              end
              object edtRespEmail: TDBAdvEdit
                Left = 423
                Top = 35
                Width = 197
                Height = 21
                AutoFocus = True
                EmptyTextStyle = []
                LabelCaption = 'Endere'#231'o de e-mail do respons'#225'vel:'
                LabelPosition = lpTopLeft
                LabelFont.Charset = DEFAULT_CHARSET
                LabelFont.Color = clWindowText
                LabelFont.Height = -11
                LabelFont.Name = 'Segoe UI'
                LabelFont.Style = []
                Lookup.Separator = ';'
                BevelKind = bkFlat
                BorderStyle = bsNone
                CharCase = ecLowerCase
                Color = clWindow
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Segoe UI'
                Font.Style = []
                ParentFont = False
                TabOrder = 3
                Visible = True
                Version = '2.9.4.1'
                DataField = 'RESPONSAVEL_EMAIL'
                DataSource = dsRegistro
              end
            end
          end
          object TabOBS: TTabSheet
            Caption = 'Observa'#231#245'es'
            ImageIndex = 1
            object DBMemo1: TDBMemo
              Left = 0
              Top = 0
              Width = 626
              Height = 244
              Align = alTop
              BorderStyle = bsNone
              DataField = 'OBS'
              DataSource = dsRegistro
              TabOrder = 0
            end
            object edtSite: TDBAdvEdit
              Left = 0
              Top = 265
              Width = 626
              Height = 21
              AutoFocus = True
              EmptyTextStyle = []
              LabelCaption = 'Endere'#231'o do Web/Site do fornecedor:'
              LabelPosition = lpTopLeft
              LabelFont.Charset = DEFAULT_CHARSET
              LabelFont.Color = clWindowText
              LabelFont.Height = -11
              LabelFont.Name = 'Segoe UI'
              LabelFont.Style = []
              Lookup.Separator = ';'
              BevelKind = bkFlat
              BorderStyle = bsNone
              CharCase = ecLowerCase
              Color = clWindow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              Visible = True
              Version = '2.9.4.1'
              DataField = 'WEBSITE'
              DataSource = dsRegistro
            end
          end
        end
      end
    end
  end
  inherited AdvOfficePagerOfficeStyler: TAdvOfficePagerOfficeStyler
    Left = 203
  end
  inherited ImageList: TImageList
    Left = 235
  end
  inherited dsRegistro: TDataSource
    DataSet = dm_fornecedor.cdsRegistro
  end
  inherited dsConsulta: TDataSource
    DataSet = dm_fornecedor.cdsConsulta
  end
end
